shr.el (shr-insert): Fix last change.

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 88e078b066fbc3681cc82031bf83e4ea7fbe24c1..d1788c334bc7f902fded6d5a2d3ce348cbb5bdb6 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -240,11 +240,10 @@ redirects somewhere else."
                    (progn
                      (setq found (shr-find-fill-point))
                      (not (eolp))))
-         (unless (prog1
-                     found
-                   (when (eq (preceding-char) ? )
-                     (delete-char -1))
-                   (insert "\n"))
+         (when (eq (preceding-char) ? )
+           (delete-char -1))
+         (insert "\n")
+         (unless found
            (put-text-property (1- (point)) (point) 'shr-break t)
            ;; No space is needed at the beginning of a line.
            (when (eq (following-char) ? )